#!/usr/bin/env perl


@months = qw( 一月 二月 三月 四月 五月 六月 七月 八月 九月 十月 十一月 十二月 );
@days = qw(星期天 星期一 星期二 星期三 星期四 星期五 星期六);
 
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();
$year=$year+1900;
print("$year年$mon月$mday日\n");

$datestring = localtime();
print("时间日期为：$datestring\n");

$gmt_datestring = gmtime();
print ("GMT 时间日期为：$gmt_datestring\n");

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();
printf("格式化时间：HH:MM:SS\n");
printf("%02d:%02d:%02d", $hour, $min, $sec);
